Curse

Alura Pyro · Sep 20, 2005, 09:57 PM // 21:57

does anyone in this forum program and if so what languages

I am programing right now in cobol and jcl
W00t only 147 more errors to debug

Link Ironhammer · Sep 20, 2005, 09:59 PM // 21:59

I can speak a little german and french. Lots of spainish though..

hawk3y3 · Sep 20, 2005, 10:00 PM // 22:00

i do good in german...

Link Ironhammer · Sep 20, 2005, 10:01 PM // 22:01

guten tag?

Alura Pyro · Sep 20, 2005, 10:01 PM // 22:01

um programing languages like c++, asembler, c#,SQL,ect.

zehly · Sep 20, 2005, 10:03 PM // 22:03

Compiled Languages
C,
C++,
C#,
Java,
Fortran,
Pascal,
Delphi.

Parsed Languages
JSP,
PHP,
ASP,
Perl,
shell,
Visual Basic,
XHTML,
CSS,
Basic,
SQL,
DDL

Low-level languages
x86 Assembly,
x64 Assembly,
m68000 Assembly,
z80 Assembly

Other
I have written two programming languages. One was a parsed language, similar to PHP, and the other was a cross-compiled language for the z80 processor.

Alura Pyro · Sep 20, 2005, 10:07 PM // 22:07

nice I am main-frame mostly Jcl,cobol,rexx,c-list,cold-fussion,assembler(main-frame)

I know c#,c++,xml,SQL,mySQL,jsp,asp,j#,vb.net,and of course basic

zehly · Sep 20, 2005, 10:09 PM // 22:09

Cold-Fusion isn't mainframe

Alura Pyro · Sep 20, 2005, 10:12 PM // 22:12

nope its for fiber optics we converted alot of data it hurt my head alot

zehly · Sep 20, 2005, 10:17 PM // 22:17

Ouch.

Try coding a fast-fourier-transform in conjunction with using gaussian elimination, and having to reduce a VERY large matrix into reverse row echelon form on a 64bit computer using assembly language. Then imagine having to do that with reverse polish notation.

[Edit: sorry if that sounded like I was trying to out-do you. I know nothing about working with fibre optics, so it's quite possible that what you're doing is harder than what I'm doing.]

2 2 + = ??

Alura Pyro · Sep 20, 2005, 10:18 PM // 22:18

*
IDENTIFICATION DIVISION.
*
PROGRAM-ID. COB4
*PROGRAMER. ************<==my name here
*
ENVIRONMENT DIVISION.
*
CONFIGURATION SECTION.
OBJECT-COMPUTER. IBM-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*
SELECT INFILE ASSIGN TO SYSIN.
SELECT OUTFILE ASSIGN TO SYSOUT.
*
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INFILEFL.
05 CENTURY1 PIC 9(1).
05 YEAR1 PIC 9(2).
05 MONTH1 PIC 9(2).
05 DAY1 PIC 9(2).
05 CENTURY2 PIC 9(1).
05 YEAR2 PIC 9(2).
05 MONTH2 PIC 9(2).
05 DAY2 PIC 9(2).
05 COMPANY PIC 9(2).
05 BRANCH PIC 9(2).
05 PRODUCT PIC 9(2).
05 AMOUNT PIC 9(4).
FD OUTFILE.
01 OUTFILEFL.
05 FILLER PIC X(80).
*
WORKING-STORAGE SECTION.
*
77 SUB-1 PIC 9(2).
77 BC-1 PIC 9(1) VALUE 1.
77 MATCH-SWITCH PIC X(1) VALUE "N".
77 FIRST-DAY-AMOUNT PIC 9(2).
77 SECOND-DAY-AMOUNT PIC 9(2).
77 DAY-DIFFERANCE PIC 9(3).
77 FOUND-FIRST PIC X(1) VALUE "N".
77 EOF-SWITCH PIC X(1) VALUE "N".
77 CUR-COMP PIC 9(5) VALUE 00000.
77 LAST-COMP PIC 9(5) VALUE 00000.
77 CUR-BRAN PIC 9(5) VALUE 00000.
77 LAST-BRAN PIC 9(5) VALUE 00000.
77 CUR-PROD PIC 9(5) VALUE 00000.
77 LAST-PROD PIC 9(5) VALUE 00000.
77 PROD-TOTAL PIC 9(5) VALUE 00000.
77 BRAN-TOTAL PIC 9(5) VALUE 00000.
77 COMP-TOTAL PIC 9(5) VALUE 00000.
77 MAIN-TOTAL PIC 9(7) VALUE 0000000.
77 PROD-GRAND-TOTAL PIC 9(10) VALUE 0000000000.
77 BRANCH-TOTAL PIC 9(4) VALUE 0000.
77 COMPANY-TOTAL PIC 9(4) VALUE 0000.
77 PRODUCT-TOTAL PIC 9(4) VALUE 0000.
*
01 DATA-TO-CALC.
05 FIRST-CENT PIC 9(1).
05 FIRST-YEAR PIC 9(2).
05 FIRST-MONTH PIC 9(2).
05 FIRST-DAY PIC 9(2).
05 SECOND-CENT PIC 9(1).
05 SECOND-YEAR PIC 9(2).
05 SECOND-MONTH PIC 9(2).
05 SECOND-DAY PIC 9(2).
05 COMPANYS PIC 9(2).
05 BRANCHS PIC 9(2).
05 PRODUCTS PIC 9(2).
************************************************** *****************************
********THIS IS THE CALANDER TABLE FOR THE FIRST QUESTION
************************************************** *****************************
01 CAL-TABLE.
05 FILLER PIC X(16) VALUE "01JAN31JANUARY ".
05 FILLER PIC X(16) VALUE "02FEB28FEBUARY ".
05 FILLER PIC X(16) VALUE "03MAR31MARCH ".
05 FILLER PIC X(16) VALUE "04APR30APRIL ".
05 FILLER PIC X(16) VALUE "05MAY31MAY ".
05 FILLER PIC X(16) VALUE "06JUN30JUNE ".
05 FILLER PIC X(16) VALUE "07JUL31JULY ".
05 FILLER PIC X(16) VALUE "08AUG31AUGUST ".
05 FILLER PIC X(16) VALUE "09SEP30SEPTEMBER".
05 FILLER PIC X(16) VALUE "10OCT31OCTOBER ".
05 FILLER PIC X(16) VALUE "11NOV30NOVEMBER ".
05 FILLER PIC X(16) VALUE "12DEC31DECEMBER ".
************************************************** *****************************
********REDEFINITION OF THE CALANDAR
************************************************** *****************************
01 CALENDAR REDEFINES CAL-TABLE.
05 CAL-ENTRY OCCURS 12 TIMES.
10 MONTH-NUMBER PIC 9(2).
10 SHORT-MONTH-NAME PIC X(3).
10 DAYS-IN-MONTH PIC 9(2).
10 MONTH-NAME-LONG PIC X(9).
*
PROCEDURE DIVISION.
*
OI-OPEN.
OPEN INPUT INFILE
OUTPUT OUTFILE.
OI-OPEN-EXIT.
*
0000-OI-READ.
READ INFILE
AT END MOVE "Y" TO EOF-SWITCH.
0050-OI-READ-EXIT.
EXIT.
*
0051-OI-CLEAN.
CLOSE INFILE
OUTFILE.
MOVE "N" TO EOF-SWITCH.
0099-OI-CLEAN-EXIT.
EXIT.
*
************************************************** *****************************
*******THIS WALKS THRU THE FIRST AND SECOND QUESTION AND EXECUTES THEM
************************************************** *****************************
0000-MAIN-BODY.
PERFORM OI-OPEN THRU OI-OPEN-EXIT.
PERFORM 0200-FIRST-QUESTION THRU 0299-EXIT
UNTIL EOF-SWITCH = "Y".
PERFORM 0300-PRINT-LINE THRU 0399-EXIT.
PERFORM 0051-OI-CLEAN THRU 0099-OI-CLEAN-EXIT.
PERFORM OI-OPEN THRU OI-OPEN-EXIT.
PERFORM 0400-CONTROL-BREAK THRU 0499-EXIT
UNTIL EOF-SWITCH = "Y".
*
*
*
EXIT.
0200-FIRST-QUESTION.
PERFORM 0000-OI-READ THRU 0050-OI-READ-EXIT.
MOVE INFILEFL TO DATA-TO-CALC.
PERFORM 0210-CALENDAR-TABLE THRU 0219-EXIT
VARYING SUB-1
FROM BC-1 BY BC-1
UNTIL SUB-1 > 12
OR
MATCH-SWITCH = "Y".
0299-EXIT.
EXIT.
************************************************** *****************************
*******THIS AREA SEARCHES TILL IT FINDS
*******FIRST MONTH THEN ADDS REMAINDER DAYS INTO
*******THE HOLDER THEN ADDS ALL THE MONTHS
*******FROM THE FIRST TO THE SECOND DATE THEN ADDS
*******THE AMOUNT THAT IS GIVEN IN THE SECOND
*******INPUT DATE NO CALCULATION ON THE LAST ONE
************************************************** *****************************
0210-CALENDAR-TABLE.
************************************************** *****************************
*******THE IF TO FIND THE FIRST MONTH
************************************************** *****************************
IF FIRST-MONTH = MONTH-NUMBER(SUB-1)
MOVE DAYS-IN-MONTH(SUB-1) TO
FIRST-DAY-AMOUNT
MOVE FIRST-DAY-AMOUNT TO DAY-DIFFERANCE
SUBTRACT FIRST-DAY FROM DAY-DIFFERANCE
GIVING DAY-DIFFERANCE
MOVE "Y" TO FOUND-FIRST
GO TO 0219-EXIT.
************************************************** *****************************
*******THIS IF ADDS UP MONTHS BETWEEN THE DATES
************************************************** *****************************
IF FOUND-FIRST = "N"
NEXT SENTENCE
ELSE
************************************************** *****************************
*******THIS IS THE IF FOR THE LAST MONTH
************************************************** ******************************
IF SUB-1 = SECOND-MONTH
ADD SECOND-DAY TO DAY-DIFFERANCE
SUBTRACT 2 FROM DAY-DIFFERANCE GIVING DAY-DIFFERANCE
************************************************** ******************************
*******THE SUBTRACT 2 IS TO COMPINSATE FOR THE FIRST
*******AND LAST DAY WHICH WE ARE NOT TO
*******INCLUDE IN THE TOTAL
************************************************** ******************************
MOVE "N" TO FOUND-FIRST
ELSE
************************************************** ******************************
*******LAST MONTH HANDELING
************************************************** ******************************
ADD DAYS-IN-MONTH(SUB-1) TO DAY-DIFFERANCE.
0219-EXIT.
EXIT.
************************************************** *****************************
*******PRINT THE LINES FOR PROBLUMB 1
************************************************** *****************************
0300-PRINT-LINE.
MOVE DAY-DIFFERANCE TO OUTFILEFL.
PERFORM 0900-WRITE THRU 0999-EXIT.
0399-EXIT.
EXIT.
************************************************** ******************************
*******THIS IS THE CONTROL BREAK FOR THE SECOND QUESTION
************************************************** ******************************
0400-CONTROL-BREAK.
PERFORM 0000-OI-READ THRU 0050-OI-READ-EXIT
MOVE INFILEFL TO DATA-TO-CALC.
PERFORM 0410-COMPANY-CHECK THRU 0419-EXIT.
PERFORM 0420-BRANCH-CHECK THRU 0429-EXIT.
PERFORM 0430-PRODUCT-CHECK THRU 0439-EXIT.
0499-EXIT.
EXIT.
0410-COMPANY-CHECK.
IF LAST-COMP = 00000
MOVE CUR-COMP TO LAST-COMP
ADD 1 TO COMPANY-TOTAL
ELSE
IF CUR-COMP > LAST-COMP
PERFORM 0440-PRINT-COMPANY-TOTAL-LINE
ELSE
NEXT SENTENCE.
0419-EXIT.
EXIT.
0420-BRANCH-CHECK.
IF LAST-BRAN = 00000
MOVE CUR-BRAN TO LAST-BRAN
ADD 1 TO BRANCH-TOTAL
ELSE
IF CUR-BRAN > LAST-BRAN
PERFORM 0450-PRINT-BRANCH-TOTAL-LINE
ELSE
NEXT SENTENCE.
0429-EXIT.
EXIT.
0430-PRODUCT-CHECK.
IF LAST-PROD = 00000
MOVE CUR-PROD TO LAST-PROD
ADD 1 TO PRODUCT-TOTAL
PERFORM 0800-ADD THRU 0899-EXIT
ELSE
IF CUR-PROD > LAST-PROD
PERFORM 0460-PRINT-PRODUCT-TOTAL-LINE
PERFORM 0800-ADD THRU 0899-EXIT
ELSE
PERFORM 0800-ADD THRU 0899-EXIT.
0439-EXIT.
EXIT.
************************************************** ****************************
*******THESE ARE THE PRINT FUNCTIONS
*******FOR COMPANY BRANCH AND PRODUCT FOR QUESTION 2
************************************************** ****************************
0440-PRINT-COMPANY-TOTAL-LINE.
MOVE "THE TOTAL OF COMPANY",CUR-COMPANY,"IS",COMP-TOTAL
TO OUTPUTFL.
PERFORM 0900-WRITE THRU 0999-EXIT.
PERFORM 0500-COMPANY-BREAK-CLEAR THRU 0599-EXIT.
0449-EXIT.
EXIT.
0450-PRINT-BRANCH-TOTAL-LINE.
MOVE "THE TOTAL OF BRANCH",CUR-BRANCH,"IS",BRAN-TOTAL
TO OUTPUTFL.
PERFORM 0900-WRITE THRU 0999-EXIT.
PERFORM 0600-BRANCH-BREAK-CLEAR THRU 0699-EXIT.
0459-EXIT.
EXIT.
************************************************** *****************************
*******PRINT LINE FOR FIRST QUESTION
************************************************** *****************************
0460-PRINT-PRODUCT-TOTAL-LINE.
MOVE "THE TOTAL OF PRODUC",CUR-PRODUCT,"IS",PROD-TOTAL
TO OUTPUTFL.
PERFORM 0900-WRITE THRU 0999-EXIT.
PERFORM 0700-PRODUCT-BREAK-CLEAR THRU 0799-EXIT.
0469-EXIT.
EXIT.
0470-PRINT-LAST-LINE.

0479-EXIT.
EXIT.
************************************************** *****************************
*******THIS AREA CONTAINS THE ROUTINES FOR
*******RESETING THE ACCUMULATOR AND THE PREVIOUS
*******COMPANY NUMBER FIELD
************************************************** *****************************
0500-COMPANY-BREAK-CLEAR.
MOVE 000 TO LAST-COMPANY.
MOVE 0000 TO COMPANY-TOTAL.
NEXT SENTENCE.
0599-EXIT.
EXIT.
0600-BRANCH-BREAK-CLEAR.
MOVE 000 TO LAST-BRANCH.
MOVE 0000 TO BRANCH-TOTAL.
NEXT SENTENCE.
0699-EXIT.
EXIT.
0700-PRODUCT-BREAK-CLEAR.
MOVE 000 TO LAST-PRODUCT.
MOVE 0000 TO PRODUCT-TOTAL.
NEXT SENTENCE.
0799-EXIT.
EXIT.
************************************************** *****************************
*******THIS DOES THE MATHMATICS FOR THE CONTROL BREAK ASSIGNMENT
************************************************** *****************************
0800-ADD.
ADD AMOUNT TO PROD-GRAND-TOTAL
ADD AMOUNT TO BRANCH-TOTAL
ADD AMOUNT TO PRODUCT-TOTAL
ADD AMOUNT TO COMPANY-TOTAL
0899-EXIT.
************************************************** *****************************
*******THIS IS ALL THE WRITE COMANDS FOR BOTH PROGRAMS
************************************************** *****************************
0900-WRITE.
WRITE OUTPUTFL
AFTER ADVANCING 1 LINES.
0999-EXIT.
EXIT.

here is your answer my first cobol program ever ahh the memories

chris_nin00 · Sep 20, 2005, 10:24 PM // 22:24

Wow.... I'm taking up programing this year as a sophomore, any tips?

Alura Pyro · Sep 20, 2005, 10:27 PM // 22:27

sure when you start and have questions P.M me I'll try to answer I'm only 22 so not to much exp but I can try

allways trust your error statments they are right kinda(they get criptic)

and realize it WILL take time to learn I'm barely considered good much less great

Shinomori · Sep 20, 2005, 10:29 PM // 22:29

I can do C++, C#, Java, C, OpenGL, and so on. I'm learning them in school (I'm a junior this year).

Alura Pyro · Sep 20, 2005, 10:32 PM // 22:32

just so you know active X is evil

http://www.halcyon.com/mclain/ActiveX/welcome.html

that is the proof

zehly · Sep 20, 2005, 10:42 PM // 22:42

;; --- lock your computer up

---
;;---------------------------------
mov ah,0
mov al,13h
int 10h

label:
cli
jmp label

Alura Pyro · Sep 20, 2005, 10:44 PM // 22:44

somebody has to much free time and is just cruel I have to
nop

your program would bring WAMU to its knees and me to unemployment

zehly · Sep 20, 2005, 10:52 PM // 22:52

noop
noop
noop
ret
noop
noop
noop
noop

Kamikaze Cletus · Sep 21, 2005, 03:45 AM // 03:45

Quote:

Originally Posted by chris_nin00

Wow.... I'm taking up programing this year as a sophomore, any tips?

Me too, It's a pain in the ass. =(

Xue Yi Liang · Sep 21, 2005, 04:33 AM // 04:33

Quote:

Originally Posted by Alura Pyro

I am programing right now in cobol and jcl
W00t only 147 more errors to debug

Programming in COBOL? Yuck. I'd rather put needles in my eyes.

Here's my list:

C,
C++
Basic
Virtual Basic
Fortran

Cantonese
Spanish
German
Proper English
American English
rudimentary Ebonics